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14-Sep-1984 


MODULE NXTVOL ee (BL 18832) 


BEGIN 


COPYRIGHT («) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


Lal SOFTWARE IS Pynnt SHED UNDER A LICENSE AND MAY BE USED AND gd ba 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH yates NSE AND WITH THE 
INCLUSION OF THE os pid NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
FLAnSFERACO NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeePORat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: MTAACP 
i ABSTRACT 


This module gets the next volume for read and write 


i ENVIRONMENT : 


VMS operating system, including privileged system services 
and internal exec routines. 


AUTHOR: D. H. GILLESPIE, CREATION DATE: 20-AUG-1977 
i MODIFIED BY: 


V03-010 HHO041 Hai Huang ge~gyh 1966 
Remove REQUIRE 'L1BD$:CVASLIB.OBJJMOUNTMSG.B32' 


v03-009 mno0287 ont, 10-Apr-1984 14:14 
ix to the SHTACCE 3° feture code where the ACCESS field 
4A have gotten set to normal processing before 
all the errors were checked. 
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K 13 5 
Nxt 16-Se AX=11 Bliss-32 V4.0-742 p 
v04 1e-geb=} 88s 98:22:] MTAACP. SRC INXTVOL _B32:1 a0e 48 
VO3-008 LMPOz21 k Pilant, 28-Mar-1984 14:50 
ange UCBSL _OWNUIC to ORBSL GUNER and UCBSU-VPROT to 
Ones 
vO3-007 WMD0273 


ae the processing” sf the secons iptt ity character fields 
VOL1 and or HOR! Label to call the installation 

AK. A. accessibility routine. The return from this 

routine determines the users access to the oll. and/or file. 


v03-006 ™MD0177 Neg du 26-Hay- -1983 15:13 
hange VO volt f° indicate ANSI Level 4 when writing SYSTEM CODE 


v03-005 MMD0159 Meg 26-Apr-1983 9:30 
Change reference te iis the symbol SCRATCH OFFSET. 
V03-004 MMD0135 Meg Dumont, 12-Apr-1983 17:29 


or writng and Pte Sp ann the VOL1 
R field, so that it is no longer 
S field, Bn B, 


Added S pueport. t for 
OWNER FIE 
treated as a VM 


v03-003 MMD0121 Rog, Ou 29-Mar-1983 0:45 
bo8g Added support for the vole label inside the MTAACP 
0084 V03-002 MMD0104 Meg D 17-Feb-1983 13:19 
se Use GET_DEV_NAME for tase “cates name. Added code for AVR and AVL 
0087 v02-015 DMWw00060 David Michael Yelp 7-Dec-1981 
494 Rename TRANSLATION_TABLE to ANSI_A_GOOD 
0090 v02-014 DMW00037 David Michael woe 17-Sep-1981 
0091 Set hg entry used when GINEXT_VOL_READ places the Label 
44 in the MVL 
0094 v02-013 DMw00031 David Michael Walp 18-Aug-1981 
0096 Volume Access project 
009 v02-012 DMWw00018 David Michael Walp 20-May-1981 
0098 Checks for File-Set-Id changed to look at the YMVL rather 
st44 then VCB ( 1st mounted volume Label ). 
1 V02-011 REFORMAT Maria del C. Nasr 30-Jun-1980 
: A0C10 MCNO003 Maria del C. Nasr 15-Oct-1979 9:26 
Add HDR3 processing 
A0009 ACG0047 Andrew C. Goldstein, 9-Aug-1979 14:17 


Protection check interface changes 


LIBRARY RU SEL LORART #4 19,L52": 
REQUIRE ‘SRCS:MTADEF B32’; 


LINKAGE 
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-Se 4 AX-11 Bliss-32 V4.0 Pp 
16-Se- 1382 96: a] MTAACP. SRCINXTVOL. g334 aad at 
CHECK _PROT = JSB (REGISTER = O, REGISTER,= 1 =1, REGISTER = = 2) es 
LSCHECK_HDR = JSB : GLOBAL (SCRATCH 29 fonkint’ *vcB = 19° : 
NOTUSED (7, 8, 10); 


domes gl 


K_H : LSCHECK ! check that HDR can be overwritten 
GINEXT VOL -READ : NOVALUE~ USGENEXT VOL RES ! get next volume for read 
hh NEXT VOL" WRIT : NOVALUE CSGTNEXT VOL_WR, ! get next volume for write 

voC_SECTION : COMMON_CALL NOVACUE, ! incr rel vol and sect # 

: COMMON-CALL NOVALU E, 

RESET URIT : COMMON-CALL NOVALUE; ! update Label in MVL entry 
EXTERNAL 

: REF BBLOCK, ' addr current unit control block 

: REF BBLOCK, addr of aee F1) Label 
10_PACKET : REF BBLOCK, addr current 1/0 request packet 
SCRSGL PCBVEC REF VECTOR * ADDRESSING “MODE” (ABSOLUTE), 


EXTERNAL ROUTINE 
EXP 


: COMMON_CALL, 
FORMAT VOLOWNER : NOVALUE, 
GE NAME : COMMON_CALL NOVALUE, 
GET pee cORo. 


ISSOE_10 : LSISSUE ir 
=VOL : COMMON CALL, 
PRINT. OPR_MSG : head Dy ti “MSG, 


A : COMM 
REWIND_AND_WAIT : COMMONS CALL; 


determine if file has eyptred 
format the owner field in VOL2 
given UCB addr get dev name 
get sosere tape is currently reading 
ssue 
mount 5 SO vol 
print a system mess for oper 
read headers 


1 
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1 
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1 
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1 CURRENT _UCB 
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16-Sep-1984 02:27:1 AX-11 Bliss-32 V4.0-74 
19-208- 1382 96:73) MTAACP SREINKT VOL O35¢4 
GLOBAL ROUTINE GTNEXT_VOL_READ : NOVALUE LSGTNEXT_VOL_RE = 

1+ 


FUNCTIONAL DESCRIPTION: 
This routine gets the next volume for read and checks that the file 
sequence number, file section number and volume set identifier 
are those sought 


CALLING SEQUENCE: 
GTNEXT_VOL_READ() 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CURRENT_VCB = address of current volume control block 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
next relative volume mounted 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
COMMON H 
LOCAL 
CVT_DEVNAM : VECTOR CMAX_DEVNAM_LENGTH,BYTE), ! Converted dev name 
CVT_DEVNAM_LENGTH : BYTE, ! and length of dev name 
VOLCBL : BBLOCK (6), ! current tape volume label 


file identifier 

addr of current rel vol entry in MVL 
VN, current relative volume number 

MVL : REF BBLOCK; magnetic tape volume List 


FLAGS = SFIELDMASK(MOUSV_REWIND) OR $F IELDMASK(MOUSV_CHKIFSPC); 
KERNEL_CALL(INC_VOL_SECTION); ' incr sequence # and relative vol # 
FID RENT ' pickup current file id 

! pickup cur relative volume # 


MVL“ENTRY : REF GBLOCK, 


WHILE 1 
BEGIN 
LOCAL 


< 
4 


NXT H.t3 1984 02:27:1 AX-11 Bliss-32 V4.0-74 

You~060 137808-1384 ta ERTAACP SRE NXTVOL B32; 
SCRATCH : REF BBLOCK; 

! mount vol, rewind it, check the label if the operator specifies it 

MVL_ENTRY = MOUNT_VOL(.RVN, .FLAGS); 


SCRATCH = .HDR1 + SCRATCH_OFFSET: 
CHSMOVE (VLI$S_VOLLBL, SCRATCHLVLIS$T_VOLLBLJ, VOLLBL); 


IF NOT READ_HDR() 
THEN 


BIRARA 


pope olojlolelolelol elo oleolo) 
PUPP AAI 


SSRLEREANLESSIER 


PMIPIMIPIPIPINONOND 2 2 
SSS OU OOONOMPUIUUOD 
oO 
FESSTESS 
RNRIWWWI ER BRR ARR PUNE EERE EEE EF PWN NAA BAIA 


BEGIN 

ERR_EXIT(SS$_TAPEPOSLOST) ; 

END; 
! This next call will use the UCB address to get the device's name and 
! will fill in the fields with that name and the length of the name. 
GET_DEV_NAME (CVT_DEVNAM_LENGTH,CVT_DEVNAM) ; 
! on read the next volume has the sane volume set id and the fid of the 


wr 


POIPIPIPIPIPIPIPOPINIPINIPUNIPIPININININININPININNPONoND 


06 ! next section for the current file 
v's if aa NEQ .CURRENT_VCBCVCBSL_CUR_F 1D] 
061 PRINT_OPR_MSG(MOUNS_NOTRELVOL, 0, .CURRENT VCBCVCB$B_CUR_RVNI, 
0611 .CVT_BEVNAM_LENGTH, CVT_DEVNAM) 
ELSE 
BEGIN 


! pickup the addr of the MVL 


MVL = .CURRENT_VCBLVCBSL_MVL]; 
IF CHSNEQ(MVLSS_SET_ID, AVLCMVLST_SET_1D) 
HDISS-FILESETID, HORICHDIST-FILESETIDI, * *) 


eur 


Ft a ts 


=OODNOUE UN OO OONAUE WN $$ O ODNOU Ewin 


MoNMIPoRoPononorny 


ba ed att cs 


! not override set identifier with privs 


NOT ( . CURRENT ycecvcesy OvRSET 109 
AND .MVL_ENTRY CMVLS$V_OVERIDE)) 


Pittt ttt ttt 


wrn—o 


THEN 
6 PRINT_OPR_MSG(MOUNS_NOTVOLSET, 0, 

48 CVT BEVNAR LENGTH CVT _DEVNAM, 

49 6, MOLCMVLS$T_SET_163) 

51 ELSE 

38 EXITLOOP; 

2¢ END; 

36 6 FLAGS = SFIELDMASK(MOUSV_REWIND) + $F JELDMASK(MOUSV_MOUNTERR) ; 

5 KERNEL_CALL(RESET_UNIT); 

38 4 END; ! end of while loop 


14 
NXT = bead 8 3 = a V2 
vo4~060 ie8e0r1 a TSHECHS — ERTAACeSSReSnxtvOL B32: fone 


; 260 64 KERNEL _CALL{UPDATE_MVL_LBL, .MVL_ENTRY, VO ); 
i 861 bes § ENDS site - maar 


END d of routine 


TLE NXT VOL 
ENT \vV04-000\ 

TRN CURRENT_UCB, HDR1 

TRN I0_PACKET, SCH$GL_PCBVEC 
TRN WORK_AREA, EXPIRED 

TRN FORMAT VOLOWNER 

XTRN GET_DEV_NAME, GET_RECORD 
-EXTRN ISSOE_I0, MOUNT VOL 
-EXTRN PRINT-OPR_MSG, READ_HDR 
-EXTRN REWIND AND_WAIT 

“EXTRN SYSS$CMRRNL 


-PSECT S$CODES,NOWRT,2 


O7FC 8F BB 00000 GTNEXT_VOL_READ:: ; 
PUSHR #°M<R2,R3,R4,R5,R6,R7,RB,R9,R10> ; 0528 : 
SE 1¢ C2 00004 SUBL2 #28, SP : ; 
58 Q5 D0 00007 MOVL #5, FLAGS + 0575 : 
E D4 OOO0A CLRL 0=._- = ¢§P) : 0576 ; 
oooov ef dF S000E PUSHAB INC_VOL_ SECTION } 
000000006 9F 03 FB 00012 CALLS #3, a#SYSSCMKRNL ; ; 
5A 24 AB DO 00019 OVL  36(CURRENT_VCB), FID : 0577 ; 
59 2F AB 9A 00010 MOVZBL 47(CURRENT-VCB), RVN : 0578 ; 
58 DD 00021 1$: PUSHL FLAGS : 0589 ; 
59 pd 000 ; PUSKL RVN : ; 
00006 CF 08 FB 000 CALLS #2, MOUNT VOL : ; 
57 50 DO 0002A MOVL RO, MVL_ENTRY 3 3 
0000G CF 00000140 8F C1 0002D ADDL3 #320, HDR1, SCRATCH > 0591 ; 
AO 06 28 00037 MOVCS #6, 4(SCRATCH), VOLLBL : 0592 ; 
00006 CF 00 FB 0003p CALLS #0, READ_HDR : 0594 ; 
04 50 €£ 0042 BLBS RO 2 : : 
0224 8F BF 0004 CHMU =_s#548 : 0597 ; 
OC AE 9F 00049 28: PUSHAB CVT_DEVNAM + 0603 ; 
04 AE 9F Q004C PUSHAB CVT_DEVNAM LENGTH 8 3 
00006 CF 92 FB OO04F CALLS #2 oF DEV_NAME : ; 
24 AB A D1 00054 CMPL Ib, 36TCURRENT_VCB) : 0608 ; 
1B 13 00058 EQ. ss ; ; 
C AE oF SA USHAB CVT_DEVNAM + 0610 ; 
7E 4 AE 9A 00050 MOVZBL cy DEVNAM_LENGTH, -(SP) : 0611 F 
7E F AB 9A 00061 MOVZBL 47(TURRENT-VCB), -(SP) + 0610 : 
7E D4 00065 CLRL 5 6$P) : : 
00728114 8F p 67 PUSHL #7504148 : ; 
00006 $0 BSBW PRINT OPR_MSG : : 
SE 14 C ADDL2 We , SP : ; 
35 1 0 7 BRB 3 : F 

56 34 AB dO 00075 38: MOVL 2(CURRENT_VCB), MVL : 0618 

50 00006 CF 079 MOVL. HDRI, R > 0620 

0c i tf CPCS #6, {2(MVL), 21(RO) : 
C E be BBC #3, 44(CURRENT_VCB), 4$ > 0625 
iy Na $2 EO 00088 BBS #2, 7(MVL_ENTRY), 6$ ; $050 


vo4~-060 


oc 
14 
7E oc 
0072810C 
5 
58 
0000V 
00000000G 9F 
04 
0000V 
000000006 oF 
O7FC 


; Routine Size: 219 bytes, Routine Base: S$CODE$ + 0000 


: 262 0644 1 
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1 Blis aif, -32 ye Oeeee 
CP.SRCINXTVOL .B32; 


VT_DEVNAM 
OUT pe UNAM LENGTH, -(SP) 


4140 
PRINT _OPR_MSG 


BSEr UNIT 

#3, @FSYSSCMKRNL 

VOLLBL 

MVL_ENTRY 

#2 

SP 

UPDATE MVL_LBL 

a3 a4SYSSCMKRNL 
#*°M<R2,R3,R4,R5,R6,R7,RB,RI,R10> 
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1b-Sep-19 4 ee rele Bliss-32 V4.0-74 


14-Sep-1984 TAACP. SRC INXTVOL .832; 


GLOBAL ROUTINE GTNEXT_VOL_WRIT : NOVALUE LSGTNEXT_VOL_WR = 
144 


! FUNCTIONAL DESCRIPTION: 

This routine gets the next volume for write. The volume 
is mounted, rewound -_ the Label is 4 A The VOL1 
Label is rewritten to insure same density throughout volume set. 
he t initialized at the operator's request. The tape is 
also inited at the request of the user who mounted the tape. 
That is if the tape was mounted /INIT or /BLANK then every new 
reel in the volume set will be inited if the user has the proper 
access to the tape. 


CALLING SEQUENCE: 
GTNEXT_VOL_WRIT() 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
arte Br - address of current unit control block 
URRENT_VCB - address of current volume control block 
operator input 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
relative volume number incremented 
section number increment 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

LITERAL 
BLANK = 0, 
INIT = 1; 

OCAL 
CHAR : VECTOR (4,BYTE], ! Char to write in accessibility field 
CURRENT RECORD, ! current record tape drive is reading 
CVT_DEVRAM : VECTOR CMAX_DEVNAM_LENGTH, BYTE), ! Converted dev name 
CVT_DEVNAM_LENGTH : BYTE, ! and length of dev name 
ERROR_NO, 
FLAGS, 
ORB : REF BBLOCK, ' ORB address 

: REF BBLOCK, ' MVL of current volume set 

MVL_ENTRY : REF ee ° ! Entry of current volume 
SAVE_DEVCHAR VECTOR C2], 
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NXT 16-5 1984 02:27:1 AX-11 Bliss-32 V4.0-74 
v04 1 = 30p-1$be 13 horas EMTAACP.SRe NXTVOL .B32; 


$ 1 7 § OPR_FLAG : BITVECTOR (2), 

; ¢ 7 ACCESS CHAR : BYTE 

; 704 VOL OWRER : VECTOR c VL1$S_OWNER_IDENT, BYTE), 

; 4 705 SCRATCH : BBLOCK LANSI_LBLSZJ, 

; 5 f $ STATUS; 

: ; 7 ; GLOBAL REGISTER 

: S 4 SCRATCH = 9 : REF BBLOCK; 

: 330 0711 BIND 

$ 1 pris MAIL = WORK_AREA : BBLOCK CMSGSIZEJ, 

$ § 71 MAILSZ = MAIL + MSGSIZE 

: 333 at STARID = UPLIT ('DECFILE11A"); 

: 335 0716 EXTERNAL REGISTER 

5 $ ta C ON_REG; 

: 338 0719 KERNEL_CALL(INC_VOL_SECTION); 

3 9 0720 SAVE_DEVCHARCOJ”= .TCURRENT ucecucess DEVCLASS])<0, 32>; 

: 340 0721 SAVE_DEVCHARL1) = .CURRENT_ OCBCUCBSL_BEVDEPEND); 

; 1 07 ; SCRATCH = .HDR1 + SCRATCH_OFFSET; 

: r of 2 FLAGS = $F IELDMASK(MOUSV_REWIND) ; 

: 44 0725 ' This next call will use the UCB address to get the device's name and 
3 ry 7 § ! will fill in the fields with that name and the length of the name. 
; 4 07 8 GET_DEV_NAME (CVT_DEVNAM_LENGTH, CVT_DEVNAM) ; 

: 349 0730 WHILE 1 

: 350 0731 

; 23 8 ; BEGIN 

: 2g 0734 WHILE 1 

3 54 0735 dO 

. re “ 

; rH 164 ? ! mount the volume, check if overwrite is possible 

: 359 0740 4 MVL_ENTRY = MOUNT_VOL(.CURRENT_VCBLVCB$B_CUR_RVNJ, .FLAGS); 

3 rs 152 ; MVL™= .CURRENT_VCSCVCBSL_MVLJ; 

: 362 ks 4 ! set operator flap for "‘/INIT’ and ‘'/BLANK’’. If the operator 
3 4 hog: : ! was required to intervene then these flags may be set. 

: 365 Org 5 OPR_FLAG C BLANK ) = (.MAIL C OPC$W_MS_STATUS ] EQL 

: $6 0747 4&4 PC$_BLANRTAPE AND 2X'FFFF* )); 

3 ores 5 OPR_FLAG C INIT ] = (.MAIL C OPC$W_MS_STATUS Q 

3 68 4 2 ( OPCS_INITAPE-AND 2X'FFFF* )); 

; 751 4 : do not check things on ‘'/BLANK'' or if the volume was mounted 
; P36 ? ! "*/BLANK* 

; Pe ? IF .OPR_FLAGCBLANK] OR .CURRENT_VCBCVCB$V_BLANK) THEN EXITLOOP; 
: 738 4 ' see if we can overwrite the ist file, save the VOL1 access 
3 et ? ! character ( for defaulting ) before scratching the scratch area 


4 
aa raat et pe tf ne CE 


ACCESS_CHAR = .SCRATCH C V 
ERROR WO (VL1$S OWNER mt DENT. 


1 
1 
L1gB, 
= CHECK_ADR(.MVL 


TeMEVL ST - Sy R_IDENTJ,VOL_OWNER) ; 
RY, ( gor GCINIT 
Rt bReN VCBCVCB$V_INITIJ)); 


Fj 
$- $ 
“S 
B VOL 
CRA 
ENT 


' check on the results 
IF .ERROR_NO OR ((.OPR_FLAGCINIT] OR .CURRENT_VCBCVCBSV_INITJ) 
(ERROR NO EQL MOUNS. _NOTANSIY) 

THEN eet LOOP. 


! the tape is not ANSI without /INIT or /BLANK 


OOOOCOCCCOCOOCOOOCOCOCOCOOD 
i ee 
~ PASSO 
—OwOoc = 


3 4 

; 4 

3 5 

; 4 

; 4 

; 4 

3 

; 4 

3 4 

d 

‘ ure 4 PRINT_OPR_MSG(.ERROR_NO, 0, 

; 73 4 CVT_DEVNAM_LENGTH, CVT_DEVNAM) ; 

: ot? : ! force physical mount 

4 ars 4 FLAGS = SE Dee ek (mousy. REWIND) + SF IELDMASK (MOUSV_MOUNTERR) ; 
: 778 & KERNEL_CALL (RESET_UNIT) 

3 14 END; 

; 400 0781 ERROR_NO = MOUNS_IOERROR; 

; 401 07 ¢ 

; 40 07 ! try to initialize 

: 40 Bree 

3 404 0785 IF REWIND_AND_WAIT() 

; 405 th THEN 

; 406 787 4&4 BEGIN 

3; 407 0788 4 

; 408 0789 4 ! fill with spaces 

; 409 0790 4 

; 410 0791 4 CHSFILL(* °, ANSI_LBLSZ, .SCRATCH); 

3; 6411 1854 4 CHSFILL(" *, ANSI-LBLSZ, gee ATCH2) 

3 c16 0793 4 

; 41 0794 4 ! Set defaults 

3 416 0795 4 

3 6415 pee 4 SCRATCH = ‘VOL1 

: 416 0797 4 SCRATCHEVL $8 tat Stover = .MVLCMVLS$B_STDVER] + ‘0’; 

3 «641 378 4 SCRATCH *VOL 

: 418 199 4 (SCRATCH2CVL2$T_VOLOWNER])<0,32> = "D&C '; 

3 43 080) 2 ! get the volume Label from the MVL 

3; 4 § tad 4 CHSCOPY(MVL$S_VOLLBL. MVL_ENTRYCMVLST VOL. . * 

3 $s? Bape 2 VL1$S~ _VOLLBL, SCRATCHCVL1$T VOLLBL ); 

3 t3¢ D806 4 ! If the moa yh syget tes 8 a label or if the MTAACP created 
3 $58 st 4 ' the pape volume owner from the wv \  Sgoree in 
3; 4 808 4 ! the senes else the one ¢ currently on the tape ¥ lL be used. 
: 628 809 4 ' The access ibth ity char to input to SMTACCESS i yt Be. 
; 429 10 4 i in a similar fashion q gecens it is not stored in the 

3 ? : if 2 ! Label suntit SMTACCESS has seen it. 

3; 4 g ig 4 IF (.MAILSZ NEQ 0) OR .OPR_FLAG C INIT J] OR .OPR_FLAG C BLANK J 
3; 4 14 4 OR .CURRENT_VCB VCBSV_INIT J 

; 634 815 4 OR .CURRENT— “vCB C VCBSV-BLANK J 


21 AX-11 Bliss-32 V4.0-74 P 1 
4g MTAACP. SRC INKTVOL .B32; re (3) 


5 16 4 EN 

3 1 BEGIN 

: 13 ACCESS_CHAR = .MVLCMVL$B_VOL Aecds 

: 1 HSMOVE(VL1$S_OWNER_IDENT, MULCMVLST_VOLOWNER], 

; 0 SCRATCHCLVL1ST_OWNER_IDENTJ); 

3 1 END 

3 ¢ 4 ELSE 

3 BEGIN 

5 4 CHSMOVE (VL1$S_OWNER {OENT. VOL_OWNER 

: 5 SCRATCH CVC1$T_OWNER_IDENTJS; 

3 § & END; 

; o¢$ 4 4 

3; 44 6 4 ! Call the accessibility system service to get the character to output. 
; 448 829 4 ! First keep the record that the UCB is reading. The accessibility 
; 4469 8350 4 ! routine can not move the tape from under us! Thus we will compare 
; 450 Hd 4 ! this to the field after the call and if the tape was moved we punt 
$ $23 S36 ? ! the operation. 

; re tte 4 ORB = .CURRENT_UCBCUCBSL_ORB); 

3; 6546 0835 4 CURRENT_RECORD = KERNEL CALL (GET_RECORD,.CURRENT_UCB) ; 

; 455 P 0836 4 CHAR = SMTACCESS(LBLNAM = 

; 456 P 0837 4 UIC = .ORBCORBSL_OWNER) 

: 457 P0838 4 STD_VERSION = .MOLCMVL$8_STDVER], 

: 458 P 0839 4 ACCESS_CHAR = .ACCESS CHAR, 

; 459 P 0840 4 ACCESS_SPEC = MTASK CRARVALID, 

3 ree pee é TYPE ="MTASK_OUTVOLT); 

3 186 Tk: 4 STATUS = KERNEL_CALL( GET_RECORD, .CURRENT_UCB); 

; 46 0844 4 IF . CURRENT _RECORD EQL .STATUS 

: 464 0845 4 HEN 

3; 465 pase ; BEGIN : 

3 406 +744 : LOCAL TMP_PROT : WORD; ! $OGW protection word 
: 468 0849 : ! Set the access char in the Label 

3; 469 0850 

: rth tt : SCRATCHCVL1$B_VOLACCESS) = .CHARCO]; 

3 rt 0888 5 ! fill im the VOL2 VMS owner field 

3; 474 te IF .ORBCORB$V_PROT 16] 

3; 475 856 THEN TMP_PROT = -ORBCORB$W_PROT) 

3; 47 0857 5 

3; 47 13 6 BEGIN 

; 47 8° 6 TMP_PROT<0,4> = .(ORBCORBSL_SYS_PROT <0.43: 

: 47 0 6 TMP~PROT<4,4> = . (ORBLORBSL_OWN-PROT])<0,4>; 

: 480 861 6 Te pent et 4> = .(ORBLORBSL_GRP_PROTJ)<0,4>; 

: 4 1 B6¢ TP“ PROT< 2,4> = . (ORBLORBSC_WOR_PROTJ)<0,45; | 
: aBs see FORMAT_VOLOWNER(SCRATCH2, .ORBCORBSL_OWNER], .TMP_PROT); 

3; 485 8 ! If a VMS proctection is specified and the user does not 

; 4 86 ' wish us to Limit this to only ANSI standard only then 

3; 4 3 ! write our oystee code in the VOL1 lope) « This will 

3; 6 ! tell other implemenations that the VOL2 Label on this 

3 rt 4 ! tape was written by VAS. 

: 491 72 6 IF NOT (.CURRENT_VCBLVCBSV_INTCHG) 
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; 
: 
; 
: 
5 
; 
; 
; 
: 


rorororororys 
SEESERASSE SOON SSS UT FUN IS SEIEREDROSS 


Serre 
fFwnoO 


Ooooo°o 


DOODOOOOOOOOOVOVOONDO 


IIASA MAMMA BE DDD BPA ISI SIND SSSI IOSIOSIOSION PP UIP PP OP OF 


VEU OC VOONOUS WN Oo 


ROMOARONOPONY tt Os Os Os 


H 
18: p-1 MTAACP.SRCINXTVOL.832; 
AND . CURRENT i B CVCB$V_NOVOL2])) 
AND (. one One L_SYS “PROT we OR 
BSL-OWN-PROTJ NEQ 0 OR 
“ORB OReSt “GRP_PROTJ NEQ 0 OR 
-ORBLORBSL_WOR-PROT) NEQ 0) 
THEN 
BEGIN 
CHSMOVE (10 B ters seear HCVL1$T_SYSCODEI); 
SCRATCHLVL1$B 4; 
END; 
tO es same characteristics and if that succeeds write the 


IF ISSUE_IOCIO$_SETMODE, SAVE_DEVCHAR, 0) 
STATUS = ISSUE_IOCIOS_WRITELBLK, .SCRATCH, ANSI_LBLSZ); 


! If the frist write worked, then check to see if a VOL2 Label needs 
! to be written. If it does and that worked then exitloop. 


IF .STATUS 

THEN 
BEGIN 

IF NOT (. CURRENT ycecucesy INTCHG) 

AND .CURREN yce. CyCesy Rove 2)) 

AND (.ORB OnBSL prot 

.ORBCLO -bun- 
-ORBCORBSL ~ “WOR-PROT) NE 
STATUS = ISSUE_IO (10$_WRITE 


NST_LBLS 
IF .STATUS THEN EXITLOOP; 


THEN 
LK, SCRATCH2, 


END; 
IF .STATUS<O,16> EQL SS$_WRITLCK THEN ERROR_NO = MOUNS_WRITLCK; 


END 
ELSE 
ERROR_NO = MOUNS_TAPEPOSLOST; 


END; 
PRINT_OPR SGC. oe NO 


RODE VMAM. CENGTH,CVT_DEVNAM) ; 


! force Pa mount 


FLAGS = OF IG) DRASK COUSY. REWIND) + SF IELDMASK(MOUSV_MOUNTERR) ; 
1 yaa CALL(RESET_UNIT); 


! end of routine 


-BLKB 1 


$e-1984 96: qr) AX-11 Bliss-32 V4.0-74 


a a 


MrTVO. 1b-Se0-1984 02:27:19 yAret! BLieg-s2 yé.0-74 Page 5 


00 00 41 31 31 45 4C 49 466 43 45 44 OOODC P.AAA: .ASCII \DECFILE11A\<0><0> ; 
STARID P.AAA 
~ EXTRN SYSSMTACCESS 
SE FF68 CE 9€ 00000 GTNEXT_VOL_wWRIT:: 
, “"MOVAB -152(SP), SP : 0645 
7E D4 05 CLRL = =( SP) : 0719 
SE BD 0 PUSHL SP : 
0000v cr F 00009 PUSHAB i C_VOL_ SECTION : 
000000006 9F 3 FB 0D CALLS “aaSYSSCMKRNL : 
50 00006 CF p 14 MOVL ui _UCB, RO + 0720 
0080 CE AO 7D 00019 MOVG “SAVE_DEVCHAR : 
59 00006 CF 0000014 af C1 0 1F ADDL3 HRI SCRATCH : 0722 
i eee ee Oe Ere Poshas CV 1 EiAgS NAM 0558 
come Ree EH ace : 
14 AE 1¢ AE 9A 00039 MOV ZBL tet _DEV EVRA "CENGTH, O(SP) + 0773 
14 AE 1€¢ AE 9A 000 § MOVZBL CVT~DEVNAM“LENGTH, 20(SP) + 0917 
18 AE DD 00043 1$: PUSHL FLA S + 0740 
7E 2F AB OA 00046 MOVZBL 47(CURRENT_VCB), (SP) : 
00006 CF 03 FB OO04A CALLS #2, MOUNT QOL F 
08 ag DO 0004F MOVL MVL_ERTRY : 
5 34 AB D0 00035 MOVL § 52¢CURRENT_VCB), MVL + 0741 
50 D4 00057 CLRL oR + 0747 
B1E3 SF 00006 i 8} step CPW MAIL#2, #33251 : 
06 INCL RO : 
5A 01 00 30 P8 ite 2$: INSV RO, #0, #1, OPR_FLAG + 0746 
50 D4 00069 CLRL : 0749 
81D3—s BF 00006 i 81 00068 cmp MAIL#2, #33235 
074 INCL RO F 
SA 01 01 50 p6 $0096 3$: INSV RO, #1, #1, OPR_FLAG : 0748 
43 5a E€8 00078 BLBS OP tA > 0754 
3E 2D «AB 02 £0 O07E BBS We, “45 (CURRENT_VCB), fs, : 
OC AE OA A 0 0083 MOVB. 10(SCRATCH), TACCESS : 0759 
70 AE 25 Ad OE 28 000 MOVC3 #14, 37(SCRATC mae HOUN ER : 0760 
50 SA 01 01 EF OO8E EXT2V 1, OPR F : 0762 
51 2D AB gi 03 Ef 0093 EXIZy a5, ", 45 (CURRENT VCB), R1 
' oc A b $090 PUSHL five ent Y : 0761 
00 oy B8A0 SBW CHECK_HDR 3 
35 5 0 " pote 4% SRROR NO ; 
1 é E OOAS BLBS § ERROR_NO, ~6$ : 0766 
08 5A E OA BBS #1, OPR_FLAG, 5$ F 
0 2D «AB 03 5 B BBS a3, OS (CURRENT “vcB), 5$ F 
019F B5 4$: BRW 22§ ; 
007280FC &F 28 D| Be 5$: CHL RROR_NO, #7504124 ; 0767 
58 00728124 &F is C1 6$: MOVL @ 504164. ERROR_NO : 0781 
00006 cr FB cB CALLS mf WIND_AND_QAIT ; 0785 
0050 «BF 20 6E 0 5? O09 MOVCS #0. (SP), #32, #80, (SCRATCH) 0791 


GF 


04 


25 
25 


314caeSe 


4F56 
2544 


00006 


12 
00006 
1¢ 
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nm 
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PMP VMNVOOS SD VII NEMS ONMMO YS 


Ax-11 Ol isg -32 v4.0 
MTAACP. SRCM NXTVOL. §354 


#0, (SP), #32, #80, SCRATCH2 


STORE: SEH a 


4845861846, 

rect 2H ree "gmat 
L_ENTRY, 4(SCRATCH) 

matte? 

#1, OPR_FLAG, 7$ 

of 


e aL £ 
4 (COR RENT_VCB), 7$ 
45( parte we 8 


ES 
bee (mv) ACCE SHAR 
VOL_OWNER, 37(SCRATCH) 

sis a Oca, RO 
a 
SP 
GET_RECORD 
#4, @ASYSSCMK 

RO, CURRENT MRECORD 
i 

ACCES S, CHAR -(SP) 
34(MVLY, -(§P) 
(Gee) 

(SP) 
#6, SYSSHTACCESS 
RO, CHAR 
CURRENT _UCB 


RO, 
CURRENT RECORD, STATUS 


21$ 


, #0, #4, TMP_PROT 
7 #4, #4. TMP-PROT 
, #4. TMP~PROT 

i 12, #4, TMP_PROT 

of, -<(§P) 


See Se Se Se Se Ge Ge Ge Se Ge Se Ge Se Fe Se Se Ge Fe Fe Ge Ge Se Fe Be Se Be Se Se He Be Be Be Be Se Be Fe Ge Be Be Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Be 
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K 14 97: #11 Bliss-32 V4.0-74 (3) 
1-88-1986 $3:0s45 — EATAALPeSRESNKT VOL .632, . 
NXT 4$ ; 0875 : 
v04 OF | 1? eure 28, 0RB) : 0876 : 
1¢ OA 12 goice eeee tion S 0877 
«EB BE lon | ‘e| | 
BEQL , 24 (SCRATCH ; 0881 : 
“yg A ag igh ee: is E- sasrtt a): 
18 Ad 4F AD . p4 163 158: SUSHAB SAVE_DEVCHAR ; 
0084 33 b 01E9 <i om : : 
00006 5 if8 ADDL? Hie, SP : 0889 ; 
5 6 § iF} ROVZBL #80, =<SP) ; ; 
i: 70 85 bb oolFs vs SCRATCH 
D OOIFA PUSHL #32 10 : ; 
coe Hire EERE ues fame] 
: HE Ree ag, Beat Rates fel: 
A 168: — BLBC (CURRENT_VCB), 17 ; 0898 : 
ee ee et eee ee eee | 
05 ¢ #& 06 £0 0020F Tet, S4CORB) * 0900 ; 
e7 a 18 A 3 bo517 ake + jal how ; 
D§ 00519 TSTL { ; 0901 ; 
vo Sh ae Boalt Tit 33cons) : 0902 ; 
20 03 13 09 } Wit $6(ORB) : o906 : 
AS 13 00386 $:  MOVZBL #80, ~(SP) : 
7E 50 BF 9h 00228 188: MOVZBL #80. =¢s : 
ee a ra : : 
CO 00 MOVL RO, STATU : 0910 ‘ 
5E gf DO 00237 BLBS STATUS, 23$ : : 
10 A 10 RE 8 00 F208; emPd STATUS, #604 ; 
o25c 8F melt 13 6 $3 ROVE #7504180, ERROR_NO : Oota 
een 50 21s: ROVL 97504500, eRRoR_No : 0316 
: TD . : 
58 00728274 BF oF : 335: PUSHAB 24 (3p) i 0916 
a. BUSHL —ERROR_NO : ; 
ss g Seu PRINT -OPR_MSG Pati é 
00006 2 ADDL2 #16, SP : $353 : 
10 : MOVL #9, FLAGS : : 
18 OR MF OP bnSec cLRL = (SP) : 3 
PUSHL é : 
2E 0 PUSHAB RESET _UNIT ro 
ee) ae ee ml 

000000006 9F FDC 7B MOVAB 152(SP), SP 
5E 0098 = CE ae 7E 238 0 


SS 


NXT 1b-5¢ Sep-1 AX-11 Bliss-32 v4.0- Pp 

yo.~000 730071 38e 9322034 MIAACPeSREINKTVOL O32, age 18 
05 00283 RSB 5 

; Routine Size: 644 bytes, Routine Base: SCODE$S + O0E8 


> 545 0926 1 


T - 727: - - 
vo4-060 ISSeor198e 93:27:12 YaNedD oussaa te yg Sept 


0000 00000 INC_VOL_SECTION: 
- WORD 


fave shing 3; 0927 

F AB 96 0000 INCB 47(CURRENT_VCB) : baee 
6 AB Bb 00 INCW  38(CURRENT-VCB) > 0965 
5 AB be 00008 ERE GBC CURRENT “VEB) : O99 
ba So0e RET . > 0968 


; Routine Size: 15 bytes, Routine Base: SCODE$ + 036C 


3 ref 4 7 } ROUTINE INC_VOL_SECTION : COMMON_CALL NOVALUE = : 
; 549 9 § 1 !e4 ; 
3 0 930 1! . 
4 1 931 1 =! FUNCTIONAL DESCRIPTION: : 
3 ¢ :) § 1! This routine increments the relative volume number ‘ 
; a 83 ? ! and the file section number : 
5 55 88 5 1 ! CALLING SEQUENCE: : 
3 228 8 $ : INC_VOL_SECTION(), CALLED IN KERNEL MODE : 
3 228 ) 4 1 ! INPUT PARAMETERS: ‘ 
: 559 939 1! NONE ; 
3 200 940 1! 3 
; 61 941 1 ! IMPLICIT INPUTS: $ 
3 206 bk : CURRENT_VCB = address of volume control block : 
: 564 oete 1 ! OUTPUT PARAMETERS: $ 
: 565 0945 1} NONE : 
; 566 0946 1! 3 
s Ser 94 1 ! IMPLICIT OUTPUTS: : 
; 368 948 1! CURRENT _VCBCVCBSB_CUR_RVN] incremented : 
: 233 0350 ! CURRENT_VCBCVCB$W_CUR_SEQ] incremented : 
s $71 951 1 ! ROUTINE VALUE: é 
: He O32¢ 1! NONE 3 
. SF 0953 1! 3 
3: 576 0954 1 ! SIDE EFFECTS: ; 
; 575 0955 1! NONE 3 
s 376 0956 1! 3 
s S77 0957 1 !<- 3 
; 578 0958 1 3 
; 579 0959 BEGIN : 
; 580 0960 3 
; 581 0961 EXTERNAL REGISTER F 
: a8 $968 cathe Sabi 
; «584 0964 CURRENT_VCBCVCB$B_CUR_RVN] = .CURRENT_VCBCVCB$B_CUR_RVN] + i; : 
; 585 0965 aya fall “vCB VCBSW_ CUR_ ~SEQ] = , CURRENT ~VCBCVCB$W_CUR_SEQ) + 1; ‘ 
; 586 0966 CURRENT “vCBLV | : 
; 587 0967 CURRENT-VCB veBSL™ ST “RECORD) = = 0; : 
; 588 0968 1 END; ! end of routine : 
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04-000 erSep- 1984 15:46:45 EMtAacpesReanXtvO 


5 oe 14 } ROUTINE UPDATE_MVL_LBL (MVL_LENTRY, ADDR) : COMMON_CALL NOVALUE = 
3 $3 971 1 !44 

; 59 a6 1! 

; 594 975 1 ! FUNCTIONAL DESCRIPTION: 

3 32 are : } This routine updates the relative volume Label from the vol1 Label 
3 397 976 1 ! CALLING SEQUENCE: 

; 98 97 1! UPDATE _MVL_LBL (ARG1,ARG2) 

; 599 978 1! 

; 600 979 1 ! INPUT PARAMETERS: 

; 601 aay 1! ARG] = address of mvl entry for current volume 

$ one Ht : ARG2 = address of volume Label on this tape volume 

; 604 388 1 ! IMPLICIT INPUTS: 

; 605 0984 1! NONE 

; 606 0985 1! 

; 607 98 1 ! OUTPUT PARAMETERS: 

: 608 987 1! NONE 

; 609 988 1! 

; 610 0989 1 ! IMPLICIT OUTPUTS: 

; 611 0990 1! NONE 

; oi¢ 0991 1! 

; 61 0992 1 ! ROUTINE VALUE: 

3; 614 0993 1! NONE 

; 615 0994 1! 

: 616 0995 1 ! SIDE EFFECTS: 

; 617 0996 1! NONE 

; 618 0997 1! 

; 619 0998 1 ! USER ERRORS: 

: 620 0999 1! NONE 

: 621 1000 1! 

3 ose 1001 1 !-== 

; 623 1002 1 

3 ost 100 BEGIN 

: 625 1004 

; 626 1005 EXTERNAL REGISTER COMMON_REG; 

3 os? 1006 

; 628 1007 EXTERNAL 

3 ° ! 43 ANSI_A_GOOD : VECTOR C , BYTE J;! translation table for ANSI ‘a’ char 
; 631 1010 P 

3; 6 § 1011 MVL_ENTRY : REF BBLOCK; 

3 oe? 1018 

; 6 101 ' translate the label into upper case and put in ' ' for any non-ANSI 
3 $3) 1oi3 ! ‘a* characters found 

; 6 19t8 CHSTRANSLATE (ANSI_A_GOOD, VL1$S_VOLLBL, .ADDR, * ' 

; 638 101 Ov, 55, VOL. MVL_ENTRY EMvL$T_VOLLBLJ ); 
; 639 1018 MVL_ENTRY C MVLSV_UNUSED J = 0; 

i: 640 1019 END; 


~EXTRN ANSI_A_GOOD 
007C 00000 UPDATE _MVL_LBL: 


NET Rb iERee-198e 93:22:10 YatalT ese5s82 ys. 05749 rage go | 
56 06 AC DO mou, | AL ENTAYS ROO ne : 9699 
00006 CF 20 08 at 8 Hi Si a _A.G00D, #6, (R6) 
07 Ab 5 BA 510 BICB2 #2, 7(R6) > 1018 
4 00014 RET : 1019 


; Routine Size: 21 bytes, Routine Base: SCODE$ + 0378 
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16-Sep-1984 27:1 
13rgee- 138s 93:20) 
ROUTINE CHECK_HDR ( MVL_ENTRY, SLASH_INIT ) : LSCHECK_HDR = 
144 
! 


i FUNCTIONAL DESCRIPTION: 
: This routine checks that the tape can be overwritten. 


i CALLING SEQUENCE: 
i CHECK_HDR(ARG1,ARG2) 


INPUT PARAMETERS: 
ARG] = address of current mounted volume entry 
ARG2 - is this a ‘‘/INIT’ 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
1 = ok to write 
various error codes 


' 

i 

‘ 

i 

i IMPLICIT OUTPUTS: 
; NONE 

i 

i 

i 

i SIDE EFFECTS: 
NONE 

to 


BEGIN 


P 
MVL_ENTRY : REF BBLOCK; 


EXTERNAL REGISTER 
SCRATCH = 9 : REF BBLOCK, 
COMMON_REG; 


BIND 
USER_VOL_LABEL = UPLIT ( ‘UVL" ), 
VOLUME _LABEL = UPLIT ( "VOL" ); 


MVL address 


MVL : REF BBLOCK, 
ORB address 


ORB : REF BBLOCK, 
STATUS 

CURRENT _RECORD, 
ACCESS; 


! loop till we find HDR1 
WHILE 1 
BEGIN 


X-11 Bliss-32 V4.0-74 
TAACP.SRCINXTVOL.B32; 


user's volume Labels code 
other volume labels code 


curr record drive is readin 
Users’ access to overwrite 
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1B-Se0-1986 02:27:19 yarett BLisg=32 4.02742 


IF .ACCESS EQL SS$_NOVOLACC 
THEN RETURN MOONS_NOVOLACC; 


IF .ACCESS EQL SS$_NOFILACC 
THEN RETURN MOONS_NOF ILACC; 


IF NOT ¢ on (. CURRENT_VCBCVCBSV_OVREXP] AND .MVL_ENTRY C MVLSV_OVERIDE ]) 


3 1077 

; ? : ! 4 STATUS = ISSUE _IO(IOS_READLBLK, .SCRATCH, ANSI_LBLSZ); 

ag. ¢ 1080 IF (.STATUS<0,16> EQL SSS_ENDOFFILE) AND .SLASH_INIT 

; 03 1 THEN RETURN TRUE; 

; 705 19 : 4 IF (NOT _.STATUS) AND (.STATUS<0,16> NEQ SS$_DATAOVERUN) 

3 re 1084 THEN RETURN MOUNS_IOERROR; 

3; MFA 

; AN } § IF .(.SCRATCH) EQL ‘HDR1" THEN EXITLOOP; 

3 rig 19 4 ! if we do not see a valid member of the volume label group THEN FAIL 
3 ay 1090 IF NOT (  ( CHSEQL (¢ ? ~ SCRATCH, : USER VOL_LABEL )) 

3 at, 193) ? OR ( CHSEQL ( 3, .SCRATCH, 3, VOLUME_LABEL )) 

: Ti 1098 ; THEN RETURN MOUNS_NOTANSI; 

; 716 1094 

s viz 1095 2 END; 

; 7 1096 § 

; 719 1097 ! Call the accessibility system service to check the accessibility char 
: 720 1098 ! on the HDR1 Label. 

ee 4 1099 ! First keep the record that the UCB is reading. The accessibility 
3 is¢ 1100 ! routine can not move the tape from under us! Thus we will compare 
s fe 1101 2 ! this to the field after the call and if the tape was moved we punt 
3; 724 1108 ! the operation. The check the code return from the system service 
2 tg? Bt ! to determine what type of access the user was granted. 

3 16 1105 MVL = .CURRENT_VCBCVCBSL_MVLI; 

3 fee 1106 ORB = .CURRENT_UCBCUCBSL_ORBI; 

3 44 1107 CURRENT_RECORD = KERNEL TALL(GET_RECORD, - CURRENT_UCB) ; 

: 730 P 1108 ACCESS = SMTACCESS(LBLNAM = sPCRATCH, 

3 31 P 1109 UIC = .ORBCORBS$L_OWNERI, 

3 ree P 1110 STD_VERSION = .MULCMVLS$B_STDVER), 

tae P 1111 ACCESS_CHAR = 

: 734 P 1118 ACCESS-SPEC = MTASK_NOCHAR, 

; 735 111 TYPE = MTASK_INHDR1); 

3s 7 1114 STATUS = KERNEL_CALL(GET_RECORD, .CURRENT_UCB); 

i ror 1115 IF .CURRENT_RECORD NEQ .ST 

3 oes 1338 THEN RETURN (MOUNS_TAPEPOSLOST); 

3; 740 1118 IF .ACCESS EQL SSS$_FILACCERR 

3 (741 1119 THEN 

3; 74 1120 BEGIN 

3: 7% 1121 4 IF NOT (.CURRENT_VCBCVCB$V_OVRACC] AND .MVL_ENTRY C MVLS$V_OVERIDE J) 
3: 746 11 ¢ THEN pe MOUNS_ACCERR; 

: 745 11 ACCESS = SS$_NORMAL; 

3; 74 1124 D; 

: 74 i 5 

r 11 $ 

: 1128 

3 1129 

: 1130 

; 132 

: 1138 3 


F 15 
16-Sep-1984 02:27:1 AX-11 Bliss-32 V4.0-74 Page 23 
12-808- 1382 Td ae UMTAACP. SRC INKTVOL B32: (3 
: i 4 EXPIRED ( SCRATCHCHD1ST_EXPIREDT) ) : 
3 f $ 1} $ THEN RETURN MOUNS_FILNOTEXP; : 
: 760 11 RETURN TRUE; : 
: 761 11 § ; 
; 762 1140 END; ! end of routine CHECK_HDR ; 
00 4C 56 55 00390 P.AAB: .ASCII \UVL\<0> 3 : 
00 4C 4F 33 its P.AAC: . ASCII \VOL\<0> : : 
USER_VOL_LABEL= P.AAB F 
VOLUME _LABEL= P.AAC ; 
3C BB 00000 CHECK_HDR: ; 
PUSHR #*M<R2,R3,R4,R5> : 1020 : 
7E 50 8F 9A 00002 1$: MOVZBL #80, -(SP) + 1078 : 
9 DD 90006 PUSHL SCRATCH : ; 
31 D 0000 PUSHL # : ; 
00006 30 OO00A BSBW  ISSUE_IO ; ; 
SE O¢ CO 00000 ADDL2 #12, ; ; 
54 6 DO 90019 MOVL RO, STATUS F : 
0870 8F 54 Bi 0001 CMPW = STATUS, #2160 : 1080 : 
07 lg 00018 BNEQ ; : 
03 18 AE : O001A BLBC = SLASH_INIT, 2$ : ; 
OOF6 31 OOO1E BRW 14$ ; : 
10 54 £8 90021 2$: BLBS STATUS, 3$ + 1083 : 
0838 8F 54 Bi 00024 CMPW TATUS, #2104 : ; 
9 13 00029 BEQL ; : 
50 00728124 af 06 000¢8 MOVL #7504164, RO + 1084 : 
31524448 8F 69 01 S034 3$: CMPL (SCRATCH), #827475016 + 1086 : 
17 13 00038 BEQL 4 ; ; 
B6 AF 69 03 29 9903p CHPCS #3, (SCRATCH), USER_VOL_LABEL + 1090 : 
B3 AF 69 OS 23 O04 cP CS #3, (SCRATCH), VOLUME_LABEL > 1091 : 
50 007280FC BF 06 a9¢8 MOVL #7504124, RO + 1093 ; 
52 34 AB OD bose 4$: MOVL 2(CURRENT_VCB), MVL + 1105 : 
29 0000G CF D 28 MOVL CURRENT_UCB, RO : 1106 
1c 40 D D MOVL (RO), “ORB : 
DD 6 PUSHL RO + 1107 
1 DD PUSHL #1 ; 
E bb 6 PUSHL SP : 
00006 CF 9F PUSHAB GET_RECORD ; 
000000006 9F 4 FB $ CALLS #4, ~aASYSSCMKRNL : 
55 0 D MOVL RO, CURRENT_RECORD ; 
1 bp 7 PUSHL #1 : 1113 
C 0007 CLRQ.  =(SP) : 
7E 22 Ad 9A 00079 MOVZBL 34(MVL), -(SP) ; 
DD 0007D PUSHL (ORB) ; 
9 DD 0007F PUSHL SCRATCH : 
000000006 00 6 FB 00081 CALLS #6, SYSSMTACCESS : 
1] 


15 
NXT 18-se -1984 02:27:1 AX-11 Bliss=-32 V4.0-74 P 4 
v04- 12-808-138e td ae ERTAACP SRe NXTVOL .B32; sat 3 
53 50 D0 MOVL RO, ACCESS : 
00006 i Dp 8 PUSHL CURRENT UCB + 1114 
E bb PUSHL SP : 
00006 CF 9F 0009 PUSHAB GET _RECORD : 
000000006 i 4 FB 3 CALLS ‘ , @#SYS$CMKRNL : 
4 g D4 0 Hj CMPL § CURRENT_RECORD, STATUS + 1115 
3? 1 AG BEQL 33 : 
50 00728274 &F 00 ne OVE ' 504500, RO + 1116 
0000009¢ =F 3 D} Ar 6$: CMPL A ESS, #156 + 1118 
09 2c AB 01 if itt BBC #1, 44(CURRENT_VCB), 7$ + 1121 
5 14 AE D0 00BD MOVL  MVL_ENTRY, RO : 
09 07 AO 0 £0 000C1 BBS He (RO), 9$ ; 
50 007280E4 er D0 00C6 i$: MOV #7304100, RO > 1122 
53 o4 DO OOOCF 9S: MOVL #1, ACCESS + 1123 
000022A4 ~=s«aBF : D4 dong 10$ CMPL ACCESS, #8868 + 1126 
50 00728264 t 06 0008 MOVL #7306484, RO : 1127 
000022AC FF $ D| QO0ES 11$ cMPL ACCESS, #8876 : 1129 
50 0072826¢ oF 06 QOOED MOVL #7506492, RO + 1130 
09 2c =AB OES O00F6 12 BLBC  44(CURRENT_VCB), 13$ : 1132 
50 14 AE DO OOOFA MOVL MVL_ENTRY,~RO ; 
14 07 AO 03 £0 O00FE BBS We (RO), 14$ ; 
2F AD OOF 9019 13$ PUSHAB 47(SC ) + 1134 
00006 CF 1 Fe 0106 CALLS #1, EXPIRED ; 
9 0 £8 001 BLBS RO, 14$ : 
50 007280EC BF D0 00108 MOVL #7304108, RO + 1136 
50 01 DO 00117 14$ MOVL #1, RO + 1138 
3C BA OO11A 15$ POPR #°M<R2,R3,R4,R5> : 1140 
05 0011¢ RSB : 


; Routine Size: 285 bytes, Routine Base: S$CODES + 0398 


5 5 1141 «1 


"aa -1984 AX-11 Bliss-32 V4.0-7 
1a-8ep-19 4 96: grid MTAACP.SRC NKTVOL 32s 


; 765 1148 } GLOBAL ROUTINE RESET_UNIT : COMMON CALL NOVALUE = 

ie 

; g i 1146 FUNCTIONAL DESCRIPTION: 

: 771 1148 1/3 This routine resets the unit so that aft 

: 77 1109 1 i nmin ~~ 
ee 

: 9 i é CALLING SEQUENCE: 

: 77 1154 1 | INPUT PARAMETERS: 

: HS Nee | so 

: 780 i189 1! IMPLICIT INPUTS: 

: FBS Ht i 

: 78 1160 1 | OUTPUT PARAMETERS: 

: Re elf | “ey 

: 786 1188 1 | IMPLICIT OUTPUTS: 

Le oats thos = 

: 789 1166 1 } ROUTINE VALUE: 

: 398 ert yt 

: 79 1169 1 | SIDE EFFECTS: 

: 79 1170 1: ONE 

> 79% 171 1: 

: 795 117@ 1 i- 

: 796 1173 1 

: 388 1198 — 

: 799 1176 EXTERNAL REGISTER 

: Boy 1198 aah res 

: 80 178 ; IF .CURRENT_VCBLVCBS$W_RVN] NEQ 0 

: 804 1181 CURRENT_VCBLVCBS$W_RVN] = .CURRENT_VCBLVCBSW_RVN] - 1 
: 806 1188 $ CURRENT_VCBCVCBSW_RVN] = .BBLOCKE. CURRENT VCBLVCBSL_RVTJ, RVTSB_NVOLSJ 
2: : 

3 1186 END; 


wo 


3; Routine Size: 


fonpile 


10 
; 
3 


Name 
SCODES 


File 


-$255$DUA28: CSYSLIBILIB.L32;1 


1-00-1964 92:27:19 yarett oLiegcs2 y4.02749 


Routine Base: S$CODE$S + 0485 


PSECT SUMMARY 
Bytes Attributes 
1225 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


woeenee-= Symbols ------- Pages Processing 
Total Loaded Percent Mapped Time 
18619 82 0 1000 00:01.8 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NXTVOL/OBJ=OBJ$:NXTVOL MSRC$:NXTVOL/UPDATE=(ENHS$:NXTVOL) 


Slessed” Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 1 
Memory Used: 
tion Complete 


1204 ir 21 data bytes 


rae 


PMENT CORPORATION 
_AND PROPRIETARY 


0259 vax/ vs v4-0 C 


